home *** CD-ROM | disk | FTP | other *** search
/ Vypalování CD / Vypalovani-CD-cd2.bin / Music Catalogue Master 3.0.1 / mcm30.exe / SETUP1.CAB / f0000066 < prev    next >
Text File  |  2001-11-06  |  42KB  |  1,047 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 11/06/01              MCM3.MPR                18:07:05  
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Craig Hobson                                            
  8. *       *                                                         
  9. *       * Copyright (C) 2001 KIX Software Solutions Company       
  10. *       * 117 Millstream Way                                      
  11. *       * Winnipeg, MB  R3T 5N8                                   
  12. *       * Canada                                            
  13. *       *                                                         
  14. *       * Description:                                            
  15. *       * This PROGRAM was automatically generated BY GENMENU.    
  16. *       *                                                         
  17. *       *********************************************************
  18.  
  19.  
  20. *       *********************************************************
  21. *       *                                                         
  22. *       *                      Menu Definition                    
  23. *       *                                                         
  24. *       *********************************************************
  25. *
  26.  
  27. SET SYSMENU TO
  28. SET SYSMENU AUTOMATIC
  29.  
  30. DEFINE PAD _msm_file OF _MSYSMENU PROMPT "\<File" COLOR SCHEME 3 ;
  31.     NEGOTIATE  LEFT, NONE ;
  32.     KEY ALT+F, "ALT+F" ;
  33.     MESSAGE "Prints reports or quits Music Catalogue Master"
  34. DEFINE PAD _msm_edit OF _MSYSMENU PROMPT "\<Edit" COLOR SCHEME 3 ;
  35.     KEY ALT+E, "ALT+E" ;
  36.     MESSAGE "Edits text or current selection"
  37. DEFINE PAD _records OF _MSYSMENU PROMPT "\<Records" COLOR SCHEME 3 ;
  38.     KEY ALT+R, "ALT+R" ;
  39.     MESSAGE "Displays, adds, edits and searches records"
  40. DEFINE PAD _0it12u0oe OF _MSYSMENU PROMPT "\<Tracks" COLOR SCHEME 3 ;
  41.     KEY ALT+T, "ALT+T" ;
  42.     MESSAGE "Displays, edits and searches tracks"
  43. DEFINE PAD _0it12u0of OF _MSYSMENU PROMPT "\<Query" COLOR SCHEME 3 ;
  44.     KEY ALT+Q, "ALT+Q" ;
  45.     MESSAGE "Searches for records or tracks"
  46. DEFINE PAD _msm_windo OF _MSYSMENU PROMPT "\<Window" COLOR SCHEME 3 ;
  47.     NEGOTIATE  RIGHT, NONE ;
  48.     KEY ALT+W, "ALT+W" ;
  49.     MESSAGE "Manipulates windows"
  50. DEFINE PAD _msm_systm OF _MSYSMENU PROMPT "\<Help" COLOR SCHEME 3 ;
  51.     KEY ALT+H, "ALT+H" ;
  52.     MESSAGE "Displays Help on Music Catalogue Master"
  53. ON PAD _msm_file OF _MSYSMENU ACTIVATE POPUP _mfile
  54. ON PAD _msm_edit OF _MSYSMENU ACTIVATE POPUP _medit
  55. ON PAD _records OF _MSYSMENU ACTIVATE POPUP _rmg0zubgw
  56. ON PAD _0it12u0oe OF _MSYSMENU ACTIVATE POPUP tracks
  57. ON PAD _0it12u0of OF _MSYSMENU ACTIVATE POPUP query
  58. ON PAD _msm_windo OF _MSYSMENU ACTIVATE POPUP _mwindow
  59. ON PAD _msm_systm OF _MSYSMENU ACTIVATE POPUP _msystem
  60.  
  61. DEFINE POPUP _mfile MARGIN RELATIVE SHADOW COLOR SCHEME 4
  62. DEFINE BAR 1 OF _mfile PROMPT "\<Administration" ;
  63.     MESSAGE "Displays, adds, edits and searches various tables of information"
  64. DEFINE BAR 2 OF _mfile PROMPT "\<Options" ;
  65.     SKIP FOR IIF(Type("_SCREEN.ACTIVEFORM")<>"U",_SCREEN.ACTIVEFORM.AddEditMode,"") ;
  66.     MESSAGE "Set up program preferences and  options"
  67. DEFINE BAR 3 OF _mfile PROMPT "\-"
  68. DEFINE BAR 4 OF _mfile PROMPT "CDDB \<Registration" ;
  69.     SKIP FOR IIF(Type("_SCREEN.ACTIVEFORM")<>"U",_SCREEN.ACTIVEFORM.AddEditMode,"") ;
  70.     MESSAGE "Set CDDB Registration Information for access to Internet server"
  71. DEFINE BAR 5 OF _mfile PROMPT "CDDB Pre\<ferences" ;
  72.     SKIP FOR IIF(Type("_SCREEN.ACTIVEFORM")<>"U",_SCREEN.ACTIVEFORM.AddEditMode,"") ;
  73.     MESSAGE "Set CDDB Options for access to Internet server"
  74. DEFINE BAR 6 OF _mfile PROMPT "\-"
  75. DEFINE BAR 7 OF _mfile PROMPT "\<Import Data" ;
  76.     MESSAGE "Import data from Music Catalogue Master version 2"
  77. DEFINE BAR 8 OF _mfile PROMPT "\<Export Data" ;
  78.     SKIP FOR IIF(Type("_SCREEN.ACTIVEFORM")<>"U",_SCREEN.ACTIVEFORM.AddEditMode,"") ;
  79.     MESSAGE "Export data to Excel or a delimited text file"
  80. DEFINE BAR 9 OF _mfile PROMPT "\-"
  81. DEFINE BAR 10 OF _mfile PROMPT "\<Print Reports ..." ;
  82.     KEY CTRL+P, "Ctrl+P" ;
  83.     MESSAGE "Prints reports"
  84. DEFINE BAR 11 OF _mfile PROMPT "Print Set\<up ..." ;
  85.     MESSAGE "Changes the page layout and printer settings"
  86. DEFINE BAR 12 OF _mfile PROMPT "\-"
  87. DEFINE BAR 13 OF _mfile PROMPT "E\<xit" ;
  88.     MESSAGE "Quits Music Catalogue Master"
  89. ON BAR 1 OF _mfile ACTIVATE POPUP administra
  90. ON SELECTION BAR 2 OF _mfile ;
  91.     DO _0it12u0oj ;
  92.     IN LOCFILE("MCM_3\MENUS\MCM3" ,"MPX;MPR|FXP;PRG" ,"WHERE is MCM3?")
  93. ON SELECTION BAR 4 OF _mfile ;
  94.     DO _0it12u0ok ;
  95.     IN LOCFILE("MCM_3\MENUS\MCM3" ,"MPX;MPR|FXP;PRG" ,"WHERE is MCM3?")
  96. ON SELECTION BAR 5 OF _mfile ;
  97.     DO _0it12u0ol ;
  98.     IN LOCFILE("MCM_3\MENUS\MCM3" ,"MPX;MPR|FXP;PRG" ,"WHERE is MCM3?")
  99. ON BAR 7 OF _mfile ACTIVATE POPUP importdata
  100. ON SELECTION BAR 8 OF _mfile goApp.DoForm("Export.scx",,.T.)
  101. ON SELECTION BAR 10 OF _mfile ;
  102.     DO _0it12u0om ;
  103.     IN LOCFILE("MCM_3\MENUS\MCM3" ,"MPX;MPR|FXP;PRG" ,"WHERE is MCM3?")
  104. ON SELECTION BAR 11 OF _mfile ;
  105.     DO _0it12u0on ;
  106.     IN LOCFILE("MCM_3\MENUS\MCM3" ,"MPX;MPR|FXP;PRG" ,"WHERE is MCM3?")
  107. ON SELECTION BAR 13 OF _mfile goApp.Release
  108.  
  109. DEFINE POPUP administra MARGIN RELATIVE SHADOW COLOR SCHEME 4
  110. DEFINE BAR 1 OF administra PROMPT "\<Artists" ;
  111.     SKIP FOR IIF(Type("_SCREEN.ACTIVEFORM")<>"U",_SCREEN.ACTIVEFORM.AddEditMode,"") ;
  112.     MESSAGE "Views, adds and edits artists"
  113. DEFINE BAR 2 OF administra PROMPT "\<Categories" ;
  114.     SKIP FOR IIF(Type("_SCREEN.ACTIVEFORM")<>"U",_SCREEN.ACTIVEFORM.AddEditMode,"") ;
  115.     MESSAGE "Views, adds and edits categories"
  116. DEFINE BAR 3 OF administra PROMPT "C\<harts" ;
  117.     SKIP FOR IIF(Type("_SCREEN.ACTIVEFORM")<>"U",_SCREEN.ACTIVEFORM.AddEditMode,"") ;
  118.     MESSAGE "Views, adds and edits charts"
  119. DEFINE BAR 4 OF administra PROMPT "C\<onditions" ;
  120.     SKIP FOR IIF(Type("_SCREEN.ACTIVEFORM")<>"U",_SCREEN.ACTIVEFORM.AddEditMode,"") ;
  121.     MESSAGE "Views, adds and edits conditions"
  122. DEFINE BAR 5 OF administra PROMPT "\<Formats" ;
  123.     SKIP FOR IIF(Type("_SCREEN.ACTIVEFORM")<>"U",_SCREEN.ACTIVEFORM.AddEditMode,"") ;
  124.     MESSAGE "Views, adds and edits formats"
  125. DEFINE BAR 6 OF administra PROMPT "\<Labels" ;
  126.     SKIP FOR IIF(Type("_SCREEN.ACTIVEFORM")<>"U",_SCREEN.ACTIVEFORM.AddEditMode,"") ;
  127.     MESSAGE "Views, adds and edits labels"
  128. DEFINE BAR 7 OF administra PROMPT "\-"
  129. DEFINE BAR 8 OF administra PROMPT "\<Update Genres and Roles" ;
  130.     SKIP FOR IIF(Type("_SCREEN.ACTIVEFORM")<>"U",_SCREEN.ACTIVEFORM.AddEditMode,"") ;
  131.     MESSAGE "Update genres, roles and credit lookup tables with CDDB information"
  132. ON SELECTION BAR 1 OF administra ;
  133.     DO _0it12u0op ;
  134.     IN LOCFILE("MCM_3\MENUS\MCM3" ,"MPX;MPR|FXP;PRG" ,"WHERE is MCM3?")
  135. ON SELECTION BAR 2 OF administra ;
  136.     DO _0it12u0oq ;
  137.     IN LOCFILE("MCM_3\MENUS\MCM3" ,"MPX;MPR|FXP;PRG" ,"WHERE is MCM3?")
  138. ON SELECTION BAR 3 OF administra ;
  139.     DO _0it12u0or ;
  140.     IN LOCFILE("MCM_3\MENUS\MCM3" ,"MPX;MPR|FXP;PRG" ,"WHERE is MCM3?")
  141. ON SELECTION BAR 4 OF administra ;
  142.     DO _0it12u0os ;
  143.     IN LOCFILE("MCM_3\MENUS\MCM3" ,"MPX;MPR|FXP;PRG" ,"WHERE is MCM3?")
  144. ON SELECTION BAR 5 OF administra ;
  145.     DO _0it12u0ot ;
  146.     IN LOCFILE("MCM_3\MENUS\MCM3" ,"MPX;MPR|FXP;PRG" ,"WHERE is MCM3?")
  147. ON SELECTION BAR 6 OF administra ;
  148.     DO _0it12u0ou ;
  149.     IN LOCFILE("MCM_3\MENUS\MCM3" ,"MPX;MPR|FXP;PRG" ,"WHERE is MCM3?")
  150. ON SELECTION BAR 8 OF administra ;
  151.     DO _0it12u0ov ;
  152.     IN LOCFILE("MCM_3\MENUS\MCM3" ,"MPX;MPR|FXP;PRG" ,"WHERE is MCM3?")
  153.  
  154. DEFINE POPUP importdata MARGIN RELATIVE SHADOW COLOR SCHEME 4
  155. DEFINE BAR 1 OF importdata PROMPT "Music Catalogue Master 2.0" ;
  156.     SKIP FOR IIF(Type("_SCREEN.ACTIVEFORM")<>"U",_SCREEN.ACTIVEFORM.AddEditMode,"") ;
  157.     MESSAGE "Import data from Music Catalogue Master version 2.0"
  158. ON SELECTION BAR 1 OF importdata goApp.DoForm("Import_mcm20.scx",,.T.)
  159.  
  160. DEFINE POPUP _medit MARGIN RELATIVE SHADOW COLOR SCHEME 4
  161. DEFINE BAR _med_cut OF _medit PROMPT "Cu\<t" ;
  162.     KEY CTRL+X, "Ctrl+X" ;
  163.     MESSAGE "Removes the selection and places it onto the Clipboard"
  164. DEFINE BAR _med_copy OF _medit PROMPT "\<Copy" ;
  165.     KEY CTRL+C, "Ctrl+C" ;
  166.     MESSAGE "Copies the selection onto the Clipboard"
  167. DEFINE BAR _med_paste OF _medit PROMPT "\<Paste" ;
  168.     KEY CTRL+V, "Ctrl+V" ;
  169.     MESSAGE "Pastes the contents of the Clipboard"
  170. DEFINE BAR _med_sp200 OF _medit PROMPT "\-"
  171. DEFINE BAR _med_slcta OF _medit PROMPT "Se\<lect All" ;
  172.     KEY CTRL+A, "Ctrl+A" ;
  173.     MESSAGE "Selects all text or items in the current field"
  174.  
  175. DEFINE POPUP _rmg0zubgw MARGIN RELATIVE SHADOW COLOR SCHEME 4
  176. DEFINE BAR 1 OF _rmg0zubgw PROMPT "\<View / Enter / Edit" ;
  177.     SKIP FOR IIF(Type("_SCREEN.ACTIVEFORM")<>"U",_SCREEN.ACTIVEFORM.AddEditMode,"") ;
  178.     MESSAGE "Views, enters and edits records and related tracks"
  179. DEFINE BAR 2 OF _rmg0zubgw PROMPT "\<Enter CDs via CDDB" ;
  180.     SKIP FOR IIF(Type("_SCREEN.ACTIVEFORM")<>"U",_SCREEN.ACTIVEFORM.AddEditMode,"") ;
  181.     MESSAGE "Enters CDs via CDDB Internet site"
  182. ON SELECTION BAR 1 OF _rmg0zubgw ;
  183.     DO _0it12u0ow ;
  184.     IN LOCFILE("MCM_3\MENUS\MCM3" ,"MPX;MPR|FXP;PRG" ,"WHERE is MCM3?")
  185. ON SELECTION BAR 2 OF _rmg0zubgw ;
  186.     DO _0it12u0ox ;
  187.     IN LOCFILE("MCM_3\MENUS\MCM3" ,"MPX;MPR|FXP;PRG" ,"WHERE is MCM3?")
  188.  
  189. DEFINE POPUP tracks MARGIN RELATIVE SHADOW COLOR SCHEME 4
  190. DEFINE BAR 1 OF tracks PROMPT "\<View / Edit" ;
  191.     SKIP FOR IIF(Type("_SCREEN.ACTIVEFORM")<>"U",_SCREEN.ACTIVEFORM.AddEditMode,"") ;
  192.     MESSAGE "Views and edits tracks"
  193. ON SELECTION BAR 1 OF tracks ;
  194.     DO _0it12u0oy ;
  195.     IN LOCFILE("MCM_3\MENUS\MCM3" ,"MPX;MPR|FXP;PRG" ,"WHERE is MCM3?")
  196.  
  197. DEFINE POPUP query MARGIN RELATIVE SHADOW COLOR SCHEME 4
  198. DEFINE BAR 1 OF query PROMPT "\<Categories" ;
  199.     SKIP FOR IIF(Type("_SCREEN.ACTIVEFORM")<>"U",_SCREEN.ACTIVEFORM.AddEditMode,"") ;
  200.     MESSAGE "Performs a search on Category information"
  201. DEFINE BAR 2 OF query PROMPT "C\<harts" ;
  202.     SKIP FOR IIF(Type("_SCREEN.ACTIVEFORM")<>"U",_SCREEN.ACTIVEFORM.AddEditMode,"") ;
  203.     MESSAGE "Performs a search on Chart information"
  204. DEFINE BAR 3 OF query PROMPT "C\<opies" ;
  205.     SKIP FOR IIF(Type("_SCREEN.ACTIVEFORM")<>"U",_SCREEN.ACTIVEFORM.AddEditMode,"") ;
  206.     MESSAGE "Performs a search on Record Copy information"
  207. DEFINE BAR 4 OF query PROMPT "\<Records" ;
  208.     SKIP FOR IIF(Type("_SCREEN.ACTIVEFORM")<>"U",_SCREEN.ACTIVEFORM.AddEditMode,"") ;
  209.     MESSAGE "Performs a search on Record information"
  210. DEFINE BAR 5 OF query PROMPT "R\<oles" ;
  211.     SKIP FOR IIF(Type("_SCREEN.ACTIVEFORM")<>"U",_SCREEN.ACTIVEFORM.AddEditMode,"") ;
  212.     MESSAGE "Performs on search on Role information"
  213. DEFINE BAR 6 OF query PROMPT "\<Tracks" ;
  214.     SKIP FOR IIF(Type("_SCREEN.ACTIVEFORM")<>"U",_SCREEN.ACTIVEFORM.AddEditMode,"") ;
  215.     MESSAGE "Performs a search on Track information"
  216. ON BAR 1 OF query ACTIVATE POPUP categories
  217. ON BAR 2 OF query ACTIVATE POPUP charts
  218. ON SELECTION BAR 3 OF query ;
  219.     DO _0it12u0p0 ;
  220.     IN LOCFILE("MCM_3\MENUS\MCM3" ,"MPX;MPR|FXP;PRG" ,"WHERE is MCM3?")
  221. ON SELECTION BAR 4 OF query ;
  222.     DO _0it12u0p2 ;
  223.     IN LOCFILE("MCM_3\MENUS\MCM3" ,"MPX;MPR|FXP;PRG" ,"WHERE is MCM3?")
  224. ON SELECTION BAR 5 OF query ;
  225.     DO _0it12u0p3 ;
  226.     IN LOCFILE("MCM_3\MENUS\MCM3" ,"MPX;MPR|FXP;PRG" ,"WHERE is MCM3?")
  227. ON SELECTION BAR 6 OF query ;
  228.     DO _0it12u0p4 ;
  229.     IN LOCFILE("MCM_3\MENUS\MCM3" ,"MPX;MPR|FXP;PRG" ,"WHERE is MCM3?")
  230.  
  231. DEFINE POPUP categories MARGIN RELATIVE SHADOW COLOR SCHEME 4
  232. DEFINE BAR 1 OF categories PROMPT "\<Records" ;
  233.     MESSAGE "Displays records based on Category search information"
  234. DEFINE BAR 2 OF categories PROMPT "\<Tracks" ;
  235.     MESSAGE "Displays tracks based on Category search information"
  236. ON SELECTION BAR 1 OF categories ;
  237.     DO _0it12u0p5 ;
  238.     IN LOCFILE("MCM_3\MENUS\MCM3" ,"MPX;MPR|FXP;PRG" ,"WHERE is MCM3?")
  239. ON SELECTION BAR 2 OF categories ;
  240.     DO _0it12u0p6 ;
  241.     IN LOCFILE("MCM_3\MENUS\MCM3" ,"MPX;MPR|FXP;PRG" ,"WHERE is MCM3?")
  242.  
  243. DEFINE POPUP charts MARGIN RELATIVE SHADOW COLOR SCHEME 4
  244. DEFINE BAR 1 OF charts PROMPT "\<Records" ;
  245.     MESSAGE "Displays records based on Chart search information"
  246. DEFINE BAR 2 OF charts PROMPT "\<Tracks" ;
  247.     MESSAGE "Displays tracks based on Chart search information"
  248. ON SELECTION BAR 1 OF charts ;
  249.     DO _0it12u0p7 ;
  250.     IN LOCFILE("MCM_3\MENUS\MCM3" ,"MPX;MPR|FXP;PRG" ,"WHERE is MCM3?")
  251. ON SELECTION BAR 2 OF charts ;
  252.     DO _0it12u0p8 ;
  253.     IN LOCFILE("MCM_3\MENUS\MCM3" ,"MPX;MPR|FXP;PRG" ,"WHERE is MCM3?")
  254.  
  255. DEFINE POPUP _mwindow MARGIN RELATIVE SHADOW COLOR SCHEME 4
  256. DEFINE BAR _mwi_rotat OF _mwindow PROMPT "C\<ycle" ;
  257.     KEY CTRL+F1, "Ctrl+F1" ;
  258.     SKIP FOR IIF(Type("_SCREEN.ACTIVEFORM")<>"U",_SCREEN.ACTIVEFORM.AddEditMode,"") ;
  259.     MESSAGE "Cycles through all open windows"
  260.  
  261. DEFINE POPUP _msystem MARGIN RELATIVE SHADOW COLOR SCHEME 4
  262. DEFINE BAR 1 OF _msystem PROMPT "\<Help Topics" ;
  263.     MESSAGE "Displays the Help Window"
  264. DEFINE BAR 2 OF _msystem PROMPT "\<Search for Help On..." ;
  265.     MESSAGE "Locates Help topics based on keywords you enter"
  266. DEFINE BAR 3 OF _msystem PROMPT "\-"
  267. DEFINE BAR 4 OF _msystem PROMPT "Register Music Catalogue Master" ;
  268.     MESSAGE "Register and unlock Music Catalogue Master"
  269. DEFINE BAR 5 OF _msystem PROMPT "\-"
  270. DEFINE BAR 6 OF _msystem PROMPT "Music Catalogue Master Web Site" ;
  271.     MESSAGE "Open Web Browser to Music Catalogue Master Web Site"
  272. DEFINE BAR 7 OF _msystem PROMPT "CDDB The #1 CD Info Source" ;
  273.     MESSAGE "Open Browser to CDDB Web Site"
  274. DEFINE BAR 8 OF _msystem PROMPT "\-"
  275. DEFINE BAR 9 OF _msystem PROMPT "\<About Music Catalogue Master" ;
  276.     MESSAGE "Displays version and copyright information about Music Catalogue Master"
  277. ON SELECTION BAR 1 OF _msystem help
  278. ON SELECTION BAR 2 OF _msystem help "type here"
  279. ON SELECTION BAR 4 OF _msystem help ID 280
  280. ON SELECTION BAR 6 OF _msystem ;
  281.     DO _0it12u0pb ;
  282.     IN LOCFILE("MCM_3\MENUS\MCM3" ,"MPX;MPR|FXP;PRG" ,"WHERE is MCM3?")
  283. ON SELECTION BAR 7 OF _msystem ;
  284.     DO _0it12u0pc ;
  285.     IN LOCFILE("MCM_3\MENUS\MCM3" ,"MPX;MPR|FXP;PRG" ,"WHERE is MCM3?")
  286. ON SELECTION BAR 9 OF _msystem goApp.DoForm("About.scx")
  287.  
  288.  
  289. *       *********************************************************
  290. *       *                                                         
  291. *       * _0IT12U0OJ  ON SELECTION BAR 2 OF POPUP _mfile          
  292. *       *                                                         
  293. *       * Procedure Origin:                                       
  294. *       *                                                         
  295. *       * From Menu:  MCM3.MPR,            Record:   16           
  296. *       * Called By:  ON SELECTION BAR 2 OF POPUP _mfile          
  297. *       * Prompt:     Options                                     
  298. *       * Snippet:    1                                           
  299. *       *                                                         
  300. *       *********************************************************
  301. *
  302. PROCEDURE _0it12u0oj
  303. IF WEXIST("frmOptions")
  304.     SHOW WINDOW frmOptions
  305. ELSE
  306.     goApp.DoForm("Options.scx",,.T.)
  307. ENDIF
  308.  
  309.  
  310. *       *********************************************************
  311. *       *                                                         
  312. *       * _0IT12U0OK  ON SELECTION BAR 4 OF POPUP _mfile          
  313. *       *                                                         
  314. *       * Procedure Origin:                                       
  315. *       *                                                         
  316. *       * From Menu:  MCM3.MPR,            Record:   19           
  317. *       * Called By:  ON SELECTION BAR 4 OF POPUP _mfile          
  318. *       * Prompt:     CDDB Registration                           
  319. *       * Snippet:    2                                           
  320. *       *                                                         
  321. *       *********************************************************
  322. *
  323. PROCEDURE _0it12u0ok
  324. LOCAL CDDBControl
  325.  
  326. CDDBControl = CREATEOBJECT("CDDBControl.CDDBControl.1")
  327.  
  328. CDDBControl.SetClientInfo("3405824", "FE7F1ABE6BC1640372BF1CE9F4E9ED6D","1.0.0.19","")                
  329. CDDBControl.IsRegistered(.T.)
  330.  
  331. RELEASE CDDBControl
  332.  
  333.  
  334.  
  335. *       *********************************************************
  336. *       *                                                         
  337. *       * _0IT12U0OL  ON SELECTION BAR 5 OF POPUP _mfile          
  338. *       *                                                         
  339. *       * Procedure Origin:                                       
  340. *       *                                                         
  341. *       * From Menu:  MCM3.MPR,            Record:   20           
  342. *       * Called By:  ON SELECTION BAR 5 OF POPUP _mfile          
  343. *       * Prompt:     CDDB Preferences                            
  344. *       * Snippet:    3                                           
  345. *       *                                                         
  346. *       *********************************************************
  347. *
  348. PROCEDURE _0it12u0ol
  349. LOCAL CDDBControl, CBBDOptions, IsRegistered, x
  350.  
  351. CDDBControl = CREATEOBJECT("CDDBControl.CDDBControl.1")
  352.  
  353. CDDBControl.SetClientInfo("3405824", "FE7F1ABE6BC1640372BF1CE9F4E9ED6D","1.0.0.19","")                
  354. =CDDBControl.Initialize(0,0)
  355.  
  356. *!*    IsRegistered = CDDBControl.IsRegistered(.F.)
  357.  
  358. *!*    IF IsRegistered = 0
  359. *!*        =CDDBControl.IsRegistered(.T.)
  360. *!*    ENDIF
  361.  
  362. CDDBOptions = CDDBControl.GetOptions()
  363.  
  364. x = CDDBControl.InvokeOptionsDialog(CDDBOptions)
  365.  
  366. IF x <> 0
  367.     =CDDBControl.SetOptions(CDDBOptions)
  368. ENDIF
  369.  
  370. RELEASE CDDBControl
  371.  
  372.  
  373. *       *********************************************************
  374. *       *                                                         
  375. *       * _0IT12U0OM  ON SELECTION BAR 10 OF POPUP _mfile         
  376. *       *                                                         
  377. *       * Procedure Origin:                                       
  378. *       *                                                         
  379. *       * From Menu:  MCM3.MPR,            Record:   29           
  380. *       * Called By:  ON SELECTION BAR 10 OF POPUP _mfile         
  381. *       * Prompt:     Print Reports ...                           
  382. *       * Snippet:    4                                           
  383. *       *                                                         
  384. *       *********************************************************
  385. *
  386. PROCEDURE _0it12u0om
  387. LOCAL cOldAlias, nOldRecord
  388.  
  389. cOldAlias = ALIAS()
  390.  
  391. IF NOT EOF()
  392.     nOldRecord = RECNO()
  393. ELSE
  394.     nOldRecord = 0
  395. ENDIF
  396.  
  397. DO FORM PrintReports
  398.  
  399. IF !EMPTY(cOldAlias)
  400.     SELECT (cOldAlias)
  401. ENDIF
  402.  
  403. IF nOldRecord != 0
  404.     GO nOldRecord
  405. ENDIF
  406.  
  407.  
  408. *       *********************************************************
  409. *       *                                                         
  410. *       * _0IT12U0ON  ON SELECTION BAR 11 OF POPUP _mfile         
  411. *       *                                                         
  412. *       * Procedure Origin:                                       
  413. *       *                                                         
  414. *       * From Menu:  MCM3.MPR,            Record:   30           
  415. *       * Called By:  ON SELECTION BAR 11 OF POPUP _mfile         
  416. *       * Prompt:     Print Setup ...                             
  417. *       * Snippet:    5                                           
  418. *       *                                                         
  419. *       *********************************************************
  420. *
  421. PROCEDURE _0it12u0on
  422. LOCAL lcOldError
  423. lcOldError = ON('ERROR')
  424. ON ERROR *
  425. =SYS(1037)
  426. ON ERROR &lcOldError
  427.  
  428.  
  429.  
  430. *       *********************************************************
  431. *       *                                                         
  432. *       * _0IT12U0OP  ON SELECTION BAR 1 OF POPUP administra      
  433. *       *                                                         
  434. *       * Procedure Origin:                                       
  435. *       *                                                         
  436. *       * From Menu:  MCM3.MPR,            Record:    7           
  437. *       * Called By:  ON SELECTION BAR 1 OF POPUP administra      
  438. *       * Prompt:     Artists                                     
  439. *       * Snippet:    6                                           
  440. *       *                                                         
  441. *       *********************************************************
  442. *
  443. PROCEDURE _0it12u0op
  444. IF WEXIST("frmArtists")
  445.     SHOW WINDOW frmArtists
  446. ELSE
  447.     goApp.DoForm("artists.scx",,.T.)
  448. ENDIF
  449.  
  450.  
  451.  
  452. *       *********************************************************
  453. *       *                                                         
  454. *       * _0IT12U0OQ  ON SELECTION BAR 2 OF POPUP administra      
  455. *       *                                                         
  456. *       * Procedure Origin:                                       
  457. *       *                                                         
  458. *       * From Menu:  MCM3.MPR,            Record:    8           
  459. *       * Called By:  ON SELECTION BAR 2 OF POPUP administra      
  460. *       * Prompt:     Categories                                  
  461. *       * Snippet:    7                                           
  462. *       *                                                         
  463. *       *********************************************************
  464. *
  465. PROCEDURE _0it12u0oq
  466. IF WEXIST("frmCategories")
  467.     SHOW WINDOW frmCategories
  468. ELSE
  469.     goApp.DoForm("Categories.scx",,.T.)
  470. ENDIF
  471.  
  472.  
  473. *       *********************************************************
  474. *       *                                                         
  475. *       * _0IT12U0OR  ON SELECTION BAR 3 OF POPUP administra      
  476. *       *                                                         
  477. *       * Procedure Origin:                                       
  478. *       *                                                         
  479. *       * From Menu:  MCM3.MPR,            Record:    9           
  480. *       * Called By:  ON SELECTION BAR 3 OF POPUP administra      
  481. *       * Prompt:     Charts                                      
  482. *       * Snippet:    8                                           
  483. *       *                                                         
  484. *       *********************************************************
  485. *
  486. PROCEDURE _0it12u0or
  487. IF WEXIST("frmCharts")
  488.     SHOW WINDOW frmCharts
  489. ELSE
  490.     goApp.DoForm("Charts.scx",,.T.)
  491. ENDIF
  492.  
  493.  
  494. *       *********************************************************
  495. *       *                                                         
  496. *       * _0IT12U0OS  ON SELECTION BAR 4 OF POPUP administra      
  497. *       *                                                         
  498. *       * Procedure Origin:                                       
  499. *       *                                                         
  500. *       * From Menu:  MCM3.MPR,            Record:   10           
  501. *       * Called By:  ON SELECTION BAR 4 OF POPUP administra      
  502. *       * Prompt:     Conditions                                  
  503. *       * Snippet:    9                                           
  504. *       *                                                         
  505. *       *********************************************************
  506. *
  507. PROCEDURE _0it12u0os
  508. IF WEXIST("frmConditions")
  509.     SHOW WINDOW frmConditions
  510. ELSE
  511.     goApp.DoForm("Conditions.scx",,.T.)
  512. ENDIF
  513.  
  514.  
  515. *       *********************************************************
  516. *       *                                                         
  517. *       * _0IT12U0OT  ON SELECTION BAR 5 OF POPUP administra      
  518. *       *                                                         
  519. *       * Procedure Origin:                                       
  520. *       *                                                         
  521. *       * From Menu:  MCM3.MPR,            Record:   11           
  522. *       * Called By:  ON SELECTION BAR 5 OF POPUP administra      
  523. *       * Prompt:     Formats                                     
  524. *       * Snippet:    10                                          
  525. *       *                                                         
  526. *       *********************************************************
  527. *
  528. PROCEDURE _0it12u0ot
  529. IF WEXIST("frmFormats")
  530.     SHOW WINDOW frmFormats
  531. ELSE
  532.     goApp.DoForm("Formats.scx",,.T.)
  533. ENDIF
  534.  
  535.  
  536. *       *********************************************************
  537. *       *                                                         
  538. *       * _0IT12U0OU  ON SELECTION BAR 6 OF POPUP administra      
  539. *       *                                                         
  540. *       * Procedure Origin:                                       
  541. *       *                                                         
  542. *       * From Menu:  MCM3.MPR,            Record:   12           
  543. *       * Called By:  ON SELECTION BAR 6 OF POPUP administra      
  544. *       * Prompt:     Labels                                      
  545. *       * Snippet:    11                                          
  546. *       *                                                         
  547. *       *********************************************************
  548. *
  549. PROCEDURE _0it12u0ou
  550. IF WEXIST("frmLabels")
  551.     SHOW WINDOW frmLabels
  552. ELSE
  553.     goApp.DoForm("Labels.scx",,.T.)
  554. ENDIF
  555.  
  556.  
  557. *       *********************************************************
  558. *       *                                                         
  559. *       * _0IT12U0OV  ON SELECTION BAR 8 OF POPUP administra      
  560. *       *                                                         
  561. *       * Procedure Origin:                                       
  562. *       *                                                         
  563. *       * From Menu:  MCM3.MPR,            Record:   15           
  564. *       * Called By:  ON SELECTION BAR 8 OF POPUP administra      
  565. *       * Prompt:     Update Genres and Roles                     
  566. *       * Snippet:    12                                          
  567. *       *                                                         
  568. *       *********************************************************
  569. *
  570. PROCEDURE _0it12u0ov
  571. IF WEXIST("frmUpdater")
  572.     SHOW WINDOW frmUpdater
  573. ELSE
  574.     goApp.DoForm("Updater.scx",,.T.)
  575. ENDIF
  576.  
  577.  
  578. *       *********************************************************
  579. *       *                                                         
  580. *       * _0IT12U0OW  ON SELECTION BAR 1 OF POPUP _rmg0zubgw      
  581. *       *                                                         
  582. *       * Procedure Origin:                                       
  583. *       *                                                         
  584. *       * From Menu:  MCM3.MPR,            Record:   43           
  585. *       * Called By:  ON SELECTION BAR 1 OF POPUP _rmg0zubgw      
  586. *       * Prompt:     View / Enter / Edit                         
  587. *       * Snippet:    13                                          
  588. *       *                                                         
  589. *       *********************************************************
  590. *
  591. PROCEDURE _0it12u0ow
  592. IF WEXIST("frmRecords")
  593.     SHOW WINDOW frmRecords
  594. ELSE
  595.     goApp.DoForm("records.scx",,.T.)
  596. ENDIF
  597.  
  598.  
  599.  
  600. *       *********************************************************
  601. *       *                                                         
  602. *       * _0IT12U0OX  ON SELECTION BAR 2 OF POPUP _rmg0zubgw      
  603. *       *                                                         
  604. *       * Procedure Origin:                                       
  605. *       *                                                         
  606. *       * From Menu:  MCM3.MPR,            Record:   44           
  607. *       * Called By:  ON SELECTION BAR 2 OF POPUP _rmg0zubgw      
  608. *       * Prompt:     Enter CDs via CDDB                          
  609. *       * Snippet:    14                                          
  610. *       *                                                         
  611. *       *********************************************************
  612. *
  613. PROCEDURE _0it12u0ox
  614. IF WEXIST("frmCDDBEntry")
  615.     SHOW WINDOW frmCDDBEntry
  616. ELSE
  617.     goApp.DoForm("cddb_cd_entry.scx",,.T.)
  618. ENDIF
  619.  
  620.  
  621. *       *********************************************************
  622. *       *                                                         
  623. *       * _0IT12U0OY  ON SELECTION BAR 1 OF POPUP tracks          
  624. *       *                                                         
  625. *       * Procedure Origin:                                       
  626. *       *                                                         
  627. *       * From Menu:  MCM3.MPR,            Record:   47           
  628. *       * Called By:  ON SELECTION BAR 1 OF POPUP tracks          
  629. *       * Prompt:     View / Edit                                 
  630. *       * Snippet:    15                                          
  631. *       *                                                         
  632. *       *********************************************************
  633. *
  634. PROCEDURE _0it12u0oy
  635. IF WEXIST("frmTracks")
  636.     SHOW WINDOW frmTracks
  637. ELSE
  638.     goApp.DoForm("tracks.scx",,.T.)
  639. ENDIF
  640.  
  641.  
  642.  
  643. *       *********************************************************
  644. *       *                                                         
  645. *       * _0IT12U0P0  ON SELECTION BAR 3 OF POPUP query           
  646. *       *                                                         
  647. *       * Procedure Origin:                                       
  648. *       *                                                         
  649. *       * From Menu:  MCM3.MPR,            Record:   58           
  650. *       * Called By:  ON SELECTION BAR 3 OF POPUP query           
  651. *       * Prompt:     Copies                                      
  652. *       * Snippet:    16                                          
  653. *       *                                                         
  654. *       *********************************************************
  655. *
  656. PROCEDURE _0it12u0p0
  657. LOCAL cFormName, lFormFound
  658.  
  659. lFormFound = .F.
  660.  
  661. IF _SCREEN.FormCount = 0
  662.     goApp.DoForm("Copies_Query.scx")
  663.     
  664.     RETURN
  665. ENDIF
  666.  
  667. FOR x = 1 TO _SCREEN.FormCount
  668.     cFormName = _SCREEN.FORMS[x].Name
  669.     
  670.     IF cFormName = "frmCopies_Display" OR cFormName = "frmCopies_Query"
  671.         lFormFound = .T.
  672.         
  673.         IF _SCREEN.FORMS[x].Visible = .T.
  674.             _SCREEN.FORMS[x].Show()
  675.         
  676.             EXIT
  677.         ENDIF
  678.     ENDIF
  679. ENDFOR
  680.  
  681. IF !lFormFound
  682.     goApp.DoForm("Copies_Query.scx")
  683. ENDIF
  684.  
  685.  
  686.  
  687.  
  688. *       *********************************************************
  689. *       *                                                         
  690. *       * _0IT12U0P2  ON SELECTION BAR 4 OF POPUP query           
  691. *       *                                                         
  692. *       * Procedure Origin:                                       
  693. *       *                                                         
  694. *       * From Menu:  MCM3.MPR,            Record:   59           
  695. *       * Called By:  ON SELECTION BAR 4 OF POPUP query           
  696. *       * Prompt:     Records                                     
  697. *       * Snippet:    17                                          
  698. *       *                                                         
  699. *       *********************************************************
  700. *
  701. PROCEDURE _0it12u0p2
  702. LOCAL cFormName, lFormFound
  703.  
  704. lFormFound = .F.
  705.  
  706. IF _SCREEN.FormCount = 0
  707.     goApp.DoForm("Records_Query.scx")
  708.     
  709.     RETURN
  710. ENDIF
  711.  
  712. FOR x = 1 TO _SCREEN.FormCount
  713.     cFormName = _SCREEN.FORMS[x].Name
  714.     
  715.     IF cFormName = "frmRecords_Display" OR cFormName = "frmRecords_Query"
  716.         lFormFound = .T.
  717.         
  718.         IF _SCREEN.FORMS[x].Visible = .T.
  719.             _SCREEN.FORMS[x].Show()
  720.         
  721.             EXIT
  722.         ENDIF
  723.     ENDIF
  724. ENDFOR
  725.  
  726. IF !lFormFound
  727.     goApp.DoForm("Records_Query.scx")
  728. ENDIF
  729.  
  730.  
  731. *       *********************************************************
  732. *       *                                                         
  733. *       * _0IT12U0P3  ON SELECTION BAR 5 OF POPUP query           
  734. *       *                                                         
  735. *       * Procedure Origin:                                       
  736. *       *                                                         
  737. *       * From Menu:  MCM3.MPR,            Record:   60           
  738. *       * Called By:  ON SELECTION BAR 5 OF POPUP query           
  739. *       * Prompt:     Roles                                       
  740. *       * Snippet:    18                                          
  741. *       *                                                         
  742. *       *********************************************************
  743. *
  744. PROCEDURE _0it12u0p3
  745. LOCAL cFormName, lFormFound, cmessage
  746.  
  747. lFormFound = .F.
  748.  
  749. IF _SCREEN.FormCount = 0
  750.     goApp.DoForm("Roles_query.scx")
  751.     
  752.     RETURN
  753. ENDIF
  754.  
  755. FOR x = 1 TO _SCREEN.FormCount
  756.     cFormName = _SCREEN.FORMS[x].Name
  757.     
  758.     IF cFormName = "frmRoles_Display" OR cFormName = "frmRoles_Query"
  759.         lFormFound = .T.
  760.         
  761.         IF _SCREEN.FORMS[x].Visible = .T.
  762.             _SCREEN.FORMS[x].Show()
  763.         
  764.             EXIT
  765.         ENDIF
  766.     ENDIF
  767. ENDFOR
  768.  
  769. IF !lFormFound
  770.     goApp.DoForm("Roles_query.scx")
  771. ENDIF
  772.  
  773.  
  774. *       *********************************************************
  775. *       *                                                         
  776. *       * _0IT12U0P4  ON SELECTION BAR 6 OF POPUP query           
  777. *       *                                                         
  778. *       * Procedure Origin:                                       
  779. *       *                                                         
  780. *       * From Menu:  MCM3.MPR,            Record:   61           
  781. *       * Called By:  ON SELECTION BAR 6 OF POPUP query           
  782. *       * Prompt:     Tracks                                      
  783. *       * Snippet:    19                                          
  784. *       *                                                         
  785. *       *********************************************************
  786. *
  787. PROCEDURE _0it12u0p4
  788. LOCAL cFormName, lFormFound
  789.  
  790. lFormFound = .F.
  791.  
  792. IF _SCREEN.FormCount = 0
  793.     goApp.DoForm("Tracks_Query.scx")
  794.     
  795.     RETURN
  796. ENDIF
  797.  
  798. FOR x = 1 TO _SCREEN.FormCount
  799.     cFormName = _SCREEN.FORMS[x].Name
  800.     
  801.     IF cFormName = "frmTracks_Display" OR cFormName = "frmTracks_Query"
  802.         lFormFound = .T.
  803.         
  804.         IF _SCREEN.FORMS[x].Visible = .T.
  805.             _SCREEN.FORMS[x].Show()
  806.         
  807.             EXIT
  808.         ENDIF
  809.     ENDIF
  810. ENDFOR
  811.  
  812. IF !lFormFound
  813.     goApp.DoForm("Tracks_Query.scx")
  814. ENDIF
  815.  
  816.  
  817.  
  818.  
  819. *       *********************************************************
  820. *       *                                                         
  821. *       * _0IT12U0P5  ON SELECTION BAR 1 OF POPUP categories      
  822. *       *                                                         
  823. *       * Procedure Origin:                                       
  824. *       *                                                         
  825. *       * From Menu:  MCM3.MPR,            Record:   52           
  826. *       * Called By:  ON SELECTION BAR 1 OF POPUP categories      
  827. *       * Prompt:     Records                                     
  828. *       * Snippet:    20                                          
  829. *       *                                                         
  830. *       *********************************************************
  831. *
  832. PROCEDURE _0it12u0p5
  833. LOCAL cFormName, lFormFound, cmessage
  834.  
  835.  
  836. lFormFound = .F.
  837.  
  838. IF _SCREEN.FormCount = 0
  839.     goApp.DoForm("Records_Categories_Query.scx")
  840.     
  841.     RETURN
  842. ENDIF
  843.  
  844. FOR x = 1 TO _SCREEN.FormCount
  845.     cFormName = _SCREEN.FORMS[x].Name
  846.     
  847.     IF cFormName = "frmRecordsCategories_Query" OR cFormName = "frmRecordsCategories_Display"
  848.         lFormFound = .T.
  849.         
  850.         IF _SCREEN.FORMS[x].Visible = .T.
  851.             _SCREEN.FORMS[x].Show()
  852.         
  853.             EXIT
  854.         ENDIF
  855.     ENDIF
  856. ENDFOR
  857.  
  858. IF !lFormFound
  859.     goApp.DoForm("Records_Categories_Query.scx")
  860. ENDIF
  861.  
  862.  
  863.  
  864.  
  865. *       *********************************************************
  866. *       *                                                         
  867. *       * _0IT12U0P6  ON SELECTION BAR 2 OF POPUP categories      
  868. *       *                                                         
  869. *       * Procedure Origin:                                       
  870. *       *                                                         
  871. *       * From Menu:  MCM3.MPR,            Record:   53           
  872. *       * Called By:  ON SELECTION BAR 2 OF POPUP categories      
  873. *       * Prompt:     Tracks                                      
  874. *       * Snippet:    21                                          
  875. *       *                                                         
  876. *       *********************************************************
  877. *
  878. PROCEDURE _0it12u0p6
  879. LOCAL cFormName, lFormFound, cmessage
  880.  
  881.  
  882. lFormFound = .F.
  883.  
  884. IF _SCREEN.FormCount = 0
  885.     goApp.DoForm("Tracks_Categories_Query.scx")
  886.     
  887.     RETURN
  888. ENDIF
  889.  
  890. FOR x = 1 TO _SCREEN.FormCount
  891.     cFormName = _SCREEN.FORMS[x].Name
  892.     
  893.     IF cFormName = "frmTracks_Categories_Query" OR cFormName = "frmTracks_Categories_Display"
  894.         lFormFound = .T.
  895.         
  896.         IF _SCREEN.FORMS[x].Visible = .T.
  897.             _SCREEN.FORMS[x].Show()
  898.         
  899.             EXIT
  900.         ENDIF
  901.     ENDIF
  902. ENDFOR
  903.  
  904. IF !lFormFound
  905.     goApp.DoForm("Tracks_Categories_Query.scx")
  906. ENDIF
  907.  
  908.  
  909. *       *********************************************************
  910. *       *                                                         
  911. *       * _0IT12U0P7  ON SELECTION BAR 1 OF POPUP charts          
  912. *       *                                                         
  913. *       * Procedure Origin:                                       
  914. *       *                                                         
  915. *       * From Menu:  MCM3.MPR,            Record:   56           
  916. *       * Called By:  ON SELECTION BAR 1 OF POPUP charts          
  917. *       * Prompt:     Records                                     
  918. *       * Snippet:    22                                          
  919. *       *                                                         
  920. *       *********************************************************
  921. *
  922. PROCEDURE _0it12u0p7
  923. LOCAL cFormName, lFormFound, cmessage
  924.  
  925. lFormFound = .F.
  926.  
  927. IF _SCREEN.FormCount = 0
  928.     goApp.DoForm("records_charts_query.scx")
  929.     
  930.     RETURN
  931. ENDIF
  932.  
  933. FOR x = 1 TO _SCREEN.FormCount
  934.     cFormName = _SCREEN.FORMS[x].Name
  935.     
  936.     IF cFormName = "frmRecord_Charts_Display" OR cFormName = "frmRecord_Charts_Query"
  937.         lFormFound = .T.
  938.         
  939.         IF _SCREEN.FORMS[x].Visible = .T.
  940.             _SCREEN.FORMS[x].Show()
  941.         
  942.             EXIT
  943.         ENDIF
  944.     ENDIF
  945. ENDFOR
  946.  
  947. IF !lFormFound
  948.     goApp.DoForm("records_charts_query.scx")
  949. ENDIF
  950.  
  951.  
  952.  
  953.  
  954. *       *********************************************************
  955. *       *                                                         
  956. *       * _0IT12U0P8  ON SELECTION BAR 2 OF POPUP charts          
  957. *       *                                                         
  958. *       * Procedure Origin:                                       
  959. *       *                                                         
  960. *       * From Menu:  MCM3.MPR,            Record:   57           
  961. *       * Called By:  ON SELECTION BAR 2 OF POPUP charts          
  962. *       * Prompt:     Tracks                                      
  963. *       * Snippet:    23                                          
  964. *       *                                                         
  965. *       *********************************************************
  966. *
  967. PROCEDURE _0it12u0p8
  968. LOCAL cFormName, lFormFound, cmessage
  969.  
  970. lFormFound = .F.
  971.  
  972. IF _SCREEN.FormCount = 0
  973.     goApp.DoForm("tracks_charts_query.scx")
  974.     
  975.     RETURN
  976. ENDIF
  977.  
  978. FOR x = 1 TO _SCREEN.FormCount
  979.     cFormName = _SCREEN.FORMS[x].Name
  980.     
  981.     IF cFormName = "frmTracks_Charts_Display" OR cFormName = "frmTracks_Charts_Query"
  982.         lFormFound = .T.
  983.         
  984.         IF _SCREEN.FORMS[x].Visible = .T.
  985.             _SCREEN.FORMS[x].Show()
  986.         
  987.             EXIT
  988.         ENDIF
  989.     ENDIF
  990. ENDFOR
  991.  
  992. IF !lFormFound
  993.     goApp.DoForm("tracks_charts_query.scx")
  994. ENDIF
  995.  
  996.  
  997.  
  998.  
  999. *       *********************************************************
  1000. *       *                                                         
  1001. *       * _0IT12U0PB  ON SELECTION BAR 6 OF POPUP _msystem        
  1002. *       *                                                         
  1003. *       * Procedure Origin:                                       
  1004. *       *                                                         
  1005. *       * From Menu:  MCM3.MPR,            Record:   74           
  1006. *       * Called By:  ON SELECTION BAR 6 OF POPUP _msystem        
  1007. *       * Prompt:     Music Catalogue Master Web Site             
  1008. *       * Snippet:    24                                          
  1009. *       *                                                         
  1010. *       *********************************************************
  1011. *
  1012. PROCEDURE _0it12u0pb
  1013. LOCAL oHyperlink
  1014.  
  1015. SET CLASSLIB TO baseclass ALIAS base1 ADDITIVE
  1016. oHyperlink = CREATEOBJECT("bsHyperLink")
  1017.  
  1018. oHyperlink.NavigateTo("www.kixsoftware.com")
  1019.  
  1020. RELEASE oHyperlink
  1021. RELEASE CLASSLIB ALIAS base1
  1022.  
  1023.  
  1024. *       *********************************************************
  1025. *       *                                                         
  1026. *       * _0IT12U0PC  ON SELECTION BAR 7 OF POPUP _msystem        
  1027. *       *                                                         
  1028. *       * Procedure Origin:                                       
  1029. *       *                                                         
  1030. *       * From Menu:  MCM3.MPR,            Record:   75           
  1031. *       * Called By:  ON SELECTION BAR 7 OF POPUP _msystem        
  1032. *       * Prompt:     CDDB The #1 CD Info Source                  
  1033. *       * Snippet:    25                                          
  1034. *       *                                                         
  1035. *       *********************************************************
  1036. *
  1037. PROCEDURE _0it12u0pc
  1038. LOCAL oHyperlink
  1039.  
  1040. SET CLASSLIB TO baseclass ALIAS base1 ADDITIVE
  1041. oHyperlink = CREATEOBJECT("bsHyperLink")
  1042.  
  1043. oHyperlink.NavigateTo("www.cddb.com")
  1044.  
  1045. RELEASE oHyperlink
  1046. RELEASE CLASSLIB ALIAS base1
  1047.